home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / comunic / ace18b.zip / SIMPLE.SCR < prev    next >
Text File  |  1993-12-26  |  811b  |  44 lines
  1. ;
  2. ; Interactive script requires user input
  3. ;
  4. <ClearWindow>
  5. <DispText>Intro
  6. <DispText>Ask_Continue
  7. :GetKey
  8. <GetKey>
  9.    <if>Y
  10.    <GoTo>Dial
  11.    <if>N
  12.    <GoTo>End
  13.    <goto>GetKey
  14. :Dial
  15. <INITFONREC>ACECOMM Support BBS    ; Initialize a FON RECORD
  16. <FON_NUM>1-602-846-2940            ;
  17. <FON_BAUD>19200                    ;
  18. <FON_TERM>Av/An                    ;
  19. <FON_REDIAL>                       ; Go into re dial mode
  20. <DispText>Connect
  21. <WAITSTR> your name:
  22. <GetDCD>
  23.    <if>1
  24.    <goto>Connect
  25.    <goto>Dial
  26. :Connect
  27. <SENDSTR>Michael Phelps^M
  28. <SENDSTR>Y^M
  29. <SENDSTR>password^M~~~^M
  30. :End
  31. <ENDS>
  32.  
  33.  
  34. {-DATA_AREA-}
  35. {-TEXT_START-}Intro
  36. -- Generic Log On Script --
  37. {-TEXT_END-}
  38. {-TEXT_START-}Ask_Continue
  39. Continue (Y/n) {-TEXT_END-}
  40.  
  41. {-TEXT_START-}Connect
  42. -- Connect --
  43. {-TEXT_END-}
  44.